Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("ⳳ[з]")) Is Nothing Then
    
        Target.Offset(, 1).ClearContents
    
    End If
    
End Sub